﻿Public Class TaskStateInPlanning
    Inherits TaskState

    Public Overrides Function isCanUpdate() As Boolean
        Return True
    End Function

    Public Overrides Sub initForm(ByVal form As TaskForm, ByRef task As Task)
        form.tabPanel_task.TabPages.Remove(form.tabPorgressTask)
    End Sub


    Public Overrides Sub comenzar(ByRef task As Task)
        Dim state As State = New State
        state.idProperty = state.TASK_STATE_IN_PROCESS_ID
        task.stateProperty = state
        task.startDateProperty = Today
        TaskAdministrator.updateStartDateTask(task)
        task.endDateProperty = Nothing
    End Sub
End Class
